-- card: 10867 from stack: in.0
-- bmap block id: 0
-- flags: 4000
-- background id: 10627
-- name: Master index


-- part 13 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=458 top=27 right=71 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Re-Index
----- HyperTalk script -----
on mouseUp
  openSpeed
  put empty into fld id 1
  push card
  put empty into bun
  go bg 1
  put the number of cards in bg 1 into y
  repeat with x=1 to y
    percent x,y
    go card x in bg 1
    put bg fld id 18 into name
    put bg fld id 24 into bday
    put word 1 of bg fld id 2 into phone
    if phone is empty then put moreSpace(13) into phone
    put the length of name into lang
    if lang ≥ 28 then
      put (char 1 to 29 of name)&"…" into name
      put 30 into lang
    end if
    put name & moreSpace(32-lang) & phone into hi
    if bg fld id 7 is not empty then put "*" into char 32 of hi
    if bday is not empty then
      if checkBirth(bday) < 15 then put" *" & bday after hi
      else put "  " & bday after hi
    end if
    put hi&return after bun
    if x mod 15 is 0 then
      go bg 3
      put bun after fld id 1
      put empty into bun
    end if
  end repeat
  pop card
  put bun after fld id 1
  closeSpeed
  hide msg
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=253 right=297 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go card id 11148
end mouseUp



-- part contents for background part 1
----- text -----
Bob Hope                        (123)456-7890  01/14/23
Peter Liu                      *(206)322-7852  01/16/71
Test1                           (206)586-4489  08/04/65